home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Various / S.N.A.G. Disk of the Month 91-03 (1991)(Southern Nevada Amiga Group)(PD).zip / S.N.A.G. Disk of the Month 91-03 (1991)(Southern Nevada Amiga Group)(PD).adf / PIV / glue.a < prev    next >
Text File  |  1991-03-29  |  528b  |  32 lines
  1. ; glue.a
  2. ;
  3. ; for PIV
  4. ;
  5. ; (c) Copyright 1991 J.E.Hanway
  6. ;
  7. ; glue routine for calling original AutoRequest
  8. ; for SAS asm.
  9. ;
  10. ; $Id: glue.a,v 1.1 91/03/13 22:35:40 jeh Exp $
  11. ;
  12. ; $Log:    glue.a,v $
  13. ; Revision 1.1  91/03/13  22:35:40  jeh
  14. ; Initial revision
  15. ; 
  16. ;
  17.  
  18.    CSECT text
  19.    xref  _IntuitionBase
  20.    xref  _real_AutoRequest
  21.    
  22.    xdef  _call_AutoRequest
  23.    
  24. _call_AutoRequest:
  25.    movem.l  a5-a6,-(a7)
  26.    movea.l  _IntuitionBase(a4),a6
  27.    movea.l  _real_AutoRequest(a4),a5
  28.    jsr      (a5)
  29.    movem.l  (a7)+,a5-a6
  30.    rts
  31.    
  32.    end